home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / msdos / raytrace / pov / gen / form04a / sue / urchin1.frm < prev   
Text File  |  1994-01-25  |  939b  |  23 lines
  1. Copyright (c) Sue Cunningham
  2.  
  3. part1 = sphere stack 10 bend 60 grow 0.5;
  4. baby_part1 = sphere 0.2 stack 6 bend 60 grow 0.5;
  5. babys = sphere 0.2;
  6. Baby_spine = box <0.6, 0.6, 0.6> stack 5 grow 0.5 twist 45;
  7. Baby_bit  = babys stack 5 bend 5, [ Baby_spine ]; 
  8. Baby_bit1 = Baby_bit stack 5 twist 9*150;
  9. baby_bit1a = babys stack 5 bend -78;
  10. Baby_bit2 = baby_bit1a, Baby_bit1;
  11. baby_spiney = Baby_bit2, baby_part1;
  12. Main_spine = box <2.0 , 2.0 , 2.0>, box <1.6, 1.6, 1.6>, box <1.2, 1.2, 1.2>, 
  13.   [baby_spiney], box <0.8, 0.8, 0.8>, box <0.4, 0.4, 0.4>, box <0.2, 0.2, 0.2>;
  14. Main_bit1  = sphere ,sphere, sphere,sphere,  [ Main_spine ]  stack 45
  15.   twist 9*180 bend 30 grow 0.5;
  16. //Main_bit1 = Main_bit stack 15 twist 9*180 bend 30 grow 0.5;
  17. head  = box <2 , 4, 2> fan 21 , 180;
  18. spiney= Main_bit1, part1, head;
  19. urchin = ellipse < 3, 9, 9> fan 60, 90, 0.1, sphere 10 delete 2;
  20. spiney_fan = spiney fan 2, 90;
  21. urchin, spiney_fan;
  22. end;
  23.